create or replace function is_number(p_in varchar2) return boolean as
  i number;
begin
  i := to_number(p_in);
  return true;
exception
  when others then
    return false;
    if i = 1 then
      null;
    end if;
end is_number;
/
